'********************************
'*                              *
'*           Stoppuhr           *
'*                              *
'*     Norbert Ellert 4/88      *
'*                              *
'********************************

WINDOW CLOSE 1
WINDOW 2,"  Q = Ende    ",(0,0)-(160,85),22
GOSUB zifferblatt
WHILE 1
  GOSUB uhr
WEND
aus:
  WINDOW CLOSE 2
  SYSTEM
  END

zifferblatt:
  LINE (10,5)-(150,80),3,bf
  LINE (20,10)-(140,75),2,bf
  LINE (11,5)-(151,80),1,b
  LINE (20,10)-(140,75),1,b
  LINE (20,25)-(140,28),1,bf
  LINE (19,26)-(141,27),3,bf
  LINE (20,58)-(140,61),1,bf
  LINE (19,59)-(141,60),3,bf
  COLOR 0,2
  LOCATE 3,5  : PRINT "- STOPPUHR -"
  COLOR 3,2
  LOCATE 5,10 : PRINT "MINUTEN"
  LOCATE 7,9  : PRINT "SEKUNDEN"
  COLOR 1,2
RETURN  

uhr:  
  LOCATE 9,5  : PRINT "Start = Taste"   
  a$=""  
  WHILE a$=""
    a$=INKEY$
    IF a$="q" OR a$="Q" THEN aus
  WEND
  startzeit = TIMER  
  LOCATE 9,5 : PRINT "Stop = Taste "  
  a$=""
  WHILE a$=""
    dauer = TIMER - startzeit
    dauer=FIX(dauer)
    min=FIX(dauer/60)
    sec=dauer-60*min
    LOCATE 5,4  : PRINT min;
    LOCATE 7,4  : PRINT sec; 
    a$=INKEY$
    IF a$="q" OR a$="Q" THEN aus
  WEND  
RETURN